home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / mac / midi / cmmdtlkt.hqx / CMU Midi Toolkit 23Mar88 / Moxc Stuff / prog.c < prev    next >
Text File  |  1987-01-27  |  688b  |  45 lines
  1. /* prog.c -- a little test of cmtprog.h and moxc
  2.  *
  3.  * musically, it doesn't even rate any comments...
  4.  */
  5.  
  6. #include "cmtprog.h"
  7.  
  8. /* private functions: */
  9. p1(void);
  10. minor(int, int);
  11.  
  12. mainscore()
  13.     begin
  14.         repeat(i, 10)
  15.             p1();
  16.             when random(0, 1) == 1 then
  17.                 pnote(51, 300);
  18.                 pnote(54, 300);
  19.                 pnote(58, 300);
  20.                 minor(50, 300);
  21.             otherwise
  22.             endwhen
  23.             p1();
  24.         endrep
  25.     end
  26.  
  27. private p1()
  28.     begin
  29.         midi_program(1, random(1, 32));
  30.         rest(20);
  31.         note(48, 15);
  32.         note(59, 25);
  33.         note(56, 23);
  34.         repeat(j, 3)
  35.             minor(random(36, 48), 20);
  36.         endrep
  37.     end
  38.  
  39. private minor(tonic, duration)
  40.     begin
  41.         pnote(tonic, duration);
  42.         pnote(tonic + 3, duration);
  43.         note(tonic + 7, duration);
  44.     end
  45.